Func preencheFichaAUSinistro()
	;dadosParaFicha()
	$ciaSeguradora = IniRead($deptoIni, "ficha1", "ciaSeguradora", "11")
	$sucursalEmissora = IniRead($deptoIni, "ficha1", "sucursalEmissora", 414)
	$apolice = IniRead($deptoIni, "ficha1", "apolice", 123456)
	$item = IniRead($deptoIni, "ficha1", "item", 1)
	$ramo = IniRead($deptoIni, "ficha1", "ramo", 120)
	$inspetoria = IniRead($deptoIni, "ficha1", "inspetoria", 1)
	$inicioVigenciaApolice = IniRead($deptoIni, "ficha1", "inicioVigenciaApolice", "11/11/2011")
	$terminoVigenciaApolice = IniRead($deptoIni, "ficha1", "terminoVigenciaApolice", "11/11/2011")
	$dataOcorrenciaSinistro = IniRead($deptoIni, "ficha1", "dataOcorrenciaSinistro", "11/11/2011")
	$dataAvisoSinistro = IniRead($deptoIni, "ficha1", "dataAvisoSinistro", "11/11/2011")
	$liderextraGrupo = IniRead($deptoIni, "ficha1", "liderextraGrupo", 1)
	$natureza = IniRead($deptoIni, "ficha1", "natureza", "001")
	$nomeSegurado = IniRead($deptoIni, "ficha1", "nomeSegurado", "Teste automatiacao")
	$valorIS1 = IniRead($deptoIni, "ficha1", "valorIS1", "100,00")
	$saldoIS1 = IniRead($deptoIni, "ficha1", "saldoIS1", "10,00")
	$dataSaldoIS1 = IniRead($deptoIni, "ficha1", "dataSaldoIS1", "11/11/2011")
		
	$motivo = IniRead($deptoIni, "prestacao", "motivo", 1)
		
	Send($motivo)
	pula(2,500)
	Send("{ENTER}")
	
	aguardeOld(5000) ;Espera a tela de dossie carregar
	
	pula(2,500)
	Send($ciaSeguradora)
	pula(2,500)
	Send($sucursalEmissora)
	pula(2,500)
	Send($apolice)
	pula(2,500)
	Send($item)
	pula(2,500)
	Send($ramo)
	pula(2,500)
	Send($inspetoria)
	pula(1,500)
	Send($sucursalEmissora)
	pula(3,500)
	Send($inicioVigenciaApolice)
	Sleep(500)
	Send($terminoVigenciaApolice)
	Sleep(500)
	Send($dataOcorrenciaSinistro)
	Sleep(500)
	Send($dataAvisoSinistro)
	Sleep(500)
	Send($liderextraGrupo)
	pula(1,500)
	Send("{DOWN}")
	pula(1,500)
	Send("{DOWN}")
	pula(5,500)
	Send($natureza)
	pula(2,500)
	Send("{DOWN}")
	pula(2,500)
	Send($nomeSegurado)
	pula(9,500)
	Send("{DOWN}")
	pula(1,500)
	Send($valorIS1)
	pula(1,500)
	Send($saldoIS1)
	pula(1,500)
	Send($dataSaldoIS1)
	pula(22,200)
	Send("{ENTER}")

EndFunc

;Func dadosParaFicha()
	
;EndFunc